(in-package :ws-sql-test)
;;;; $Id: parse-procedures.lisp 3056 2008-01-24 15:27:43Z MEV $

(define-test test-wsdl () 
  (verbose "running test-wsdl")
  (unless ws-sql::*metadata*
    (warn "no database metadata in ws-sql::*metadata* special variable.")
    (ws-sql::oracle-init)
    (ws-sql::possibly-refresh-metadata))
  (let ((procedures (ws-sql:get-procedures   
		     :catalog "PASSWD_CHANGE" 
		     :schema-pattern "EUIDB" 
		     :procedure-name-pattern "WEB_PASSWD_CHG_OCCURRED")))
    (transcribe-wsdl procedures)))

